library(dplyr) ; library(ggplot2) ; library(ggthemes) ; library(tidyr)
## Functions 
kable_cust = function(df_aux,ndec=5,cap=''){
  return(df_aux %>% knitr::kable(digits = ndec,caption = cap) %>% kableExtra::kable_styling())
}

Estudo

Novo relatório com análises para Ana Júlia - Los Hermanos

IRGA

UFSCar

CCSM

Rhizotron

dframe_rhiz = data.table::fread("/Users/rafaelcatoia/MyDrive/08_Consultorias/01_Ana_Julia/04_Projeto4/Dados/Rizhotron.txt")

dframe_rhiz_ufscar = dframe_rhiz %>%
  filter(Intituto=='UFSCar') %>% select(-Manejo,-Tratamentos) %>% 
  mutate(RegHidrico =factor(RegHidrico,levels = c('S','TRF','TRV')),
         Rhizotron_2022=10*Rhizotron_2022) %>% 
  pivot_longer(cols = c("Rhizotron_2021","Rhizotron_2022"),names_to = 'Safra',
               values_to = 'Rhizotron') %>% 
  mutate(Safra=gsub('Rhizotron_','',Safra))

dframe_rhiz_ccsm = dframe_rhiz %>%
  filter(Intituto=='CCSM') %>% select(-Tratamento,-Tratamentos) %>%  
  mutate(RegHidrico =factor(RegHidrico,levels = c('S','TRF','TRV'))) %>% 
  pivot_longer(cols = c("Rhizotron_2021","Rhizotron_2022"),names_to = 'Safra',
               values_to = 'Rhizotron') %>% 
  mutate(Safra=gsub('Rhizotron_','',Safra))

UFSCar

dframe_summ_ufscar = dframe_rhiz_ufscar %>%
    select(Safra,RegHidrico,Tratamento,Rhizotron) %>%
    group_by(Safra,RegHidrico,Tratamento) %>% 
    summarise(Mean = mean(Rhizotron,na.rm=T),
              SD = sd(Rhizotron,na.rm=T)) %>% 
  mutate(`Mean ± SD`=paste(round(Mean,5),'±',round(SD,5)))

Gráfico De Barras

yname = 'Média de rhizotron'
dframe_summ_ufscar %>% ggplot(
      aes(x=Tratamento,
          fill=RegHidrico,
          y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    facet_wrap(~Safra)+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(yname)

dframe_summ_ufscar %>% ggplot(
      aes(x=RegHidrico,
          fill=Tratamento,
          y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    facet_wrap(~Safra)+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(yname)

Gráfico De Barras com erro

dframe_summ_ufscar %>% ggplot(
  aes(x=Tratamento,
      fill=RegHidrico,
      y=Mean)) +
  geom_bar(stat = 'identity',position = position_dodge(),alpha=0.9)+
  geom_errorbar(
    aes(x=Tratamento,y=Mean,
        color=RegHidrico,
        #linetype=RegHidrico,
        ymin=Mean-SD,ymax=Mean+SD),
    width = 0.2,alpha=0.8,stat = 'identity',color='black',
    position = position_dodge(0.9))+
  facet_wrap(~Safra)+
  theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
  scale_color_gdocs()+
  scale_fill_gdocs()+
  ylab(yname)

dframe_summ_ufscar %>% ggplot(
  aes(x=RegHidrico,
      fill=Tratamento,
      y=Mean)) +
  geom_bar(stat = 'identity',position = position_dodge(),alpha=0.9)+
  geom_errorbar(
    aes(x=RegHidrico,y=Mean,
        color=Tratamento,
        #linetype=RegHidrico,
        ymin=Mean-SD,ymax=Mean+SD),
    width = 0.2,alpha=0.8,stat = 'identity',color='black',
    position = position_dodge(0.9))+
  facet_wrap(~Safra)+
  theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
  scale_color_gdocs()+
  scale_fill_gdocs()+
  ylab(yname)

Gráfico de Pontos + Média e Erro

dframe_rhiz_ufscar %>% ggplot()+
    facet_wrap(~Safra,scales='free')+
    geom_point(aes(x=Tratamento,y=Rhizotron,
                          color=RegHidrico,
                          shape=RegHidrico),
               position = position_dodge(width = .75),alpha=0.5)+
    geom_point(aes(x=Tratamento,y=Mean,
                          color=RegHidrico,
                          shape=RegHidrico),
               data=dframe_summ_ufscar,
               position = position_dodge(width = .75))+
    geom_errorbar(aes(x=Tratamento,y=Mean,
                          color=RegHidrico,
                          linetype=RegHidrico,
                      ymin=Mean-SD,ymax=Mean+SD),
                  data=dframe_summ_ufscar,
                  width = 0.2,alpha=0.9,
                  position = position_dodge(0.75))+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()

dframe_rhiz_ufscar %>% ggplot()+
    facet_wrap(~Safra,scales='free')+
    geom_point(aes(x=RegHidrico,y=Rhizotron,
                          color=Tratamento,
                          shape=Tratamento),
               position = position_dodge(width = .75),alpha=0.5)+
    geom_point(aes(x=RegHidrico,y=Mean,
                          color=Tratamento,
                          shape=Tratamento),
               data=dframe_summ_ufscar,
               position = position_dodge(width = .75))+
    geom_errorbar(aes(x=RegHidrico,y=Mean,
                          color=Tratamento,
                          linetype=Tratamento,
                      ymin=Mean-SD,ymax=Mean+SD),
                  data=dframe_summ_ufscar,
                  width = 0.2,alpha=0.9,
                  position = position_dodge(0.75))+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()

Tabela Resumo

dframe_summ_ufscar %>% select(Safra,RegHidrico,Tratamento,`Mean ± SD`) %>% kable_cust(cap = 'Média e Desvio Padrao - Rhizotron')
Média e Desvio Padrao - Rhizotron
Safra RegHidrico Tratamento Mean ± SD
2021 S BRF_PF+FD 0.01001 ± 0.00631
2021 S H10+FD 0.0105 ± 0.00623
2021 S H10+H152 0.03834 ± 0.01675
2021 TRF BRF_PF+FD 0.02045 ± 0.02714
2021 TRF H10+FD 0.00918 ± 0.01088
2021 TRF H10+H152 0.01859 ± 0.0209
2021 TRV BRF_PF+FD 0.00808 ± 0.00513
2021 TRV H10+FD 0.01402 ± 0.0136
2021 TRV H10+H152 0.02275 ± 0.00243
2022 S BRF_PF+FD 0.03457 ± 0.00308
2022 S H10+FD 0.03134 ± 0.00449
2022 S H10+H152 0.04866 ± 0.00287
2022 TRF BRF_PF+FD 0.02024 ± 0.00499
2022 TRF H10+FD 0.01622 ± 0.00192
2022 TRF H10+H152 0.02094 ± 0.00723
2022 TRV BRF_PF+FD 0.01795 ± 0.00295
2022 TRV H10+FD 0.02425 ± 0.00266
2022 TRV H10+H152 0.02961 ± 0.00519

CCSM

dframe_summ_ccsm = dframe_rhiz_ccsm %>%
    select(Safra,Manejo,Copa,PortaEnxerto,Rhizotron) %>%
    group_by(Safra,Manejo,Copa,PortaEnxerto) %>% 
    summarise(Mean = mean(Rhizotron,na.rm=T),
              SD = sd(Rhizotron,na.rm=T)) %>% 
  mutate(`Mean ± SD`=paste(round(Mean,5),'±',round(SD,5)))

Gráfico de Barras

yname = 'Média de rhizotron'
dframe_summ_ccsm %>% ggplot(
      aes(x=PortaEnxerto,
          fill=Copa,
          y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    facet_wrap(Safra~Manejo,nrow=1)+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(yname)

dframe_summ_ccsm %>% ggplot(
      aes(x=PortaEnxerto,
          fill=Copa,
          y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    facet_wrap(Safra~Manejo,nrow=1)+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(yname)

Gráfico de Barras com erro

dframe_summ_ccsm %>% ggplot(
  aes(x=PortaEnxerto,
          fill=Copa,
      y=Mean)) +
  geom_bar(stat = 'identity',position = position_dodge(),alpha=0.9)+
  geom_errorbar(
    aes(x=PortaEnxerto,y=Mean,
        color=Copa,
        ymin=Mean-SD,ymax=Mean+SD),
    width = 0.2,alpha=0.8,stat = 'identity',color='black',
    position = position_dodge(0.9))+
  facet_wrap(Safra~Manejo,nrow=1)+
  theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
  scale_color_gdocs()+
  scale_fill_gdocs()+
  ylab(yname)

Gráfico de Pontos + Média e Erro

dframe_rhiz_ccsm %>% ggplot()+
  facet_wrap(~Safra)+
  geom_point(aes(x=PortaEnxerto,
                 y=Rhizotron,
                 color=Copa,
                 shape=Manejo),
             position = position_dodge(width = .75),alpha=0.5)+
  geom_point(aes(x=PortaEnxerto,
                 y=Mean,
                 color=Copa,
                 shape=Manejo),
             data=dframe_summ_ccsm,
             position = position_dodge(width = .75))+
  geom_errorbar(aes(x=PortaEnxerto,
                 y=Mean,
                 color=Copa,
                 shape=Manejo,
                ymin=Mean-SD,ymax=Mean+SD),
                data=dframe_summ_ccsm,
                width = 0.2,alpha=0.9,
                position = position_dodge(0.75))+
  theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
  scale_color_gdocs()+
  scale_fill_gdocs()

Tabela Resumo

dframe_summ_ccsm %>% select(Safra,Manejo,PortaEnxerto,Copa,`Mean ± SD`) %>% kable_cust(cap = 'Média e Desvio Padrao - Rhizotron')
Média e Desvio Padrao - Rhizotron
Safra Manejo PortaEnxerto Copa Mean ± SD
2021 Convencional FD BRF_PF 0.00521 ± 0.00401
2021 Convencional H152 BRF_PF 0.00837 ± 0.0044
2021 Convencional FD IAC10 0.0035 ± 0.00158
2021 Convencional H152 IAC10 0.01423 ± 0.00303
2021 Convencional FD IAC5 0.01404 ± 0.01049
2021 Convencional H152 IAC5 0.00987 ± 0.00401
2021 Ecologico FD BRF_PF 0.0088 ± 0.0014
2021 Ecologico H152 BRF_PF 0.01557 ± 0.00379
2021 Ecologico FD IAC10 0.00549 ± 0.00033
2021 Ecologico H152 IAC10 0.03573 ± 0.01341
2021 Ecologico FD IAC5 0.01022 ± 0.01135
2021 Ecologico H152 IAC5 0.01021 ± 0.00289
2022 Convencional FD BRF_PF 0.01011 ± 0.00569
2022 Convencional H152 BRF_PF 0.02145 ± 0.00038
2022 Convencional FD IAC10 0.00386 ± 0.00174
2022 Convencional H152 IAC10 0.00909 ± 0.00083
2022 Convencional FD IAC5 0.00171 ± 6e-05
2022 Convencional H152 IAC5 0.01492 ± 0.00074
2022 Ecologico FD BRF_PF 0.00425 ± 0.00071
2022 Ecologico H152 BRF_PF 0.02376 ± 0.00298
2022 Ecologico FD IAC10 0.00566 ± 0.00022
2022 Ecologico H152 IAC10 0.00891 ± 0.00142
2022 Ecologico FD IAC5 0.00459 ± 0.00013
2022 Ecologico H152 IAC5 0.01106 ± 0.00222

Potencial Hidrico

UFSCar

CCSM

Desenvolvimento Vegetativo

dframe_dv = data.table::fread("/Users/rafaelcatoia/MyDrive/08_Consultorias/01_Ana_Julia/04_Projeto4/Dados/DesenvVegetativo.txt")

#dframe_qf_ufscar = dframe_qf %>%
#  filter(Instituto=='UFSCar') %>% select(-Manejo) %>% 
#  mutate(RegHidrico =factor(RegHidrico,levels = c('S','TRF','TRV')))
#
#dframe_qf_ccsm = dframe_qf %>%
#  filter(Instituto=='CCSM') %>% select(-Tratamento) %>%  
#  mutate(RegHidrico =factor(RegHidrico,levels = c('S','TRF','TRV')))

UFSCar

CCSM

Qualidade do fruto

dframe_qf = data.table::fread("/Users/rafaelcatoia/MyDrive/08_Consultorias/01_Ana_Julia/04_Projeto4/Dados/QualidadeFruto.txt")

dframe_qf_ufscar = dframe_qf %>%
  filter(Instituto=='UFSCar') %>% select(-Manejo) %>% 
  mutate(RegHidrico =factor(RegHidrico,levels = c('S','TRF','TRV')))

dframe_qf_ccsm = dframe_qf %>%
  filter(Instituto=='CCSM') %>% select(-Tratamento) %>%  
  mutate(RegHidrico =factor(RegHidrico,levels = c('S','TRF','TRV')))
summ_qf <- function(dframe,variable_name = ''){
  if (variable_name==''){
    stop()
  }
  dframe = dframe %>% select(one_of(variable_name),RegHidrico,Tratamento)
  
  
  colnames(dframe)[1]<-'Y'
  out<- list()
  
  dframe_summ <- dframe %>% group_by(RegHidrico,Tratamento) %>% 
    summarise(Mean = mean(Y,na.rm=T),
              SD = sd(Y,na.rm=T)) %>% 
    mutate(`Mean ± SD`=paste(round(Mean,2),'±',round(SD,2)))
  
  out$dframe_summ <- dframe_summ
  
  out$barp <- dframe_summ %>% ggplot(
    aes(x=RegHidrico,
        fill=Tratamento,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$barp_2 <- dframe_summ %>% ggplot(
    aes(x=Tratamento,
        fill=RegHidrico,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$barp_error <-  dframe_summ %>% ggplot(
    aes(x=RegHidrico,
        fill=Tratamento,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') +
    geom_errorbar(
      aes(x=RegHidrico,y=Mean,
          color=Tratamento,
          ymin=Mean-SD,ymax=Mean+SD),
      width = 0.2,alpha=0.8,stat = 'identity',color='black',
      position = position_dodge(0.9))+
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$barp_error_2 <-  dframe_summ %>% ggplot(
    aes(x=Tratamento,
        fill=RegHidrico,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') +
    geom_errorbar(
      aes(x=Tratamento,y=Mean,
          color=RegHidrico,
          ymin=Mean-SD,ymax=Mean+SD),
      width = 0.2,alpha=0.8,stat = 'identity',color='black',
      position = position_dodge(0.9))+
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$mean_desv_plot <-
    dframe %>% ggplot()+
    geom_point(aes(
      x=RegHidrico,
      y=Y,
      color=Tratamento,
      shape=Tratamento),
      position = position_dodge(width = .75),alpha=0.5)+
    geom_point(aes(
      x=RegHidrico,
      y=Mean,
      color=Tratamento,
      shape=Tratamento),
      data=dframe_summ,
      position = position_dodge(width = .75))+
    geom_errorbar(aes(
      x=RegHidrico,
      y=Mean,
      color=Tratamento,
      shape=Tratamento,
      ymin=Mean-SD,ymax=Mean+SD),
      data=dframe_summ,
      width = 0.2,alpha=0.9,
      position = position_dodge(0.75))+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$mean_desv_plot2 <-
    dframe %>% ggplot()+
    geom_point(aes(
      x=Tratamento,
      y=Y,
      color=RegHidrico,
      shape=RegHidrico),
      position = position_dodge(width = .75),alpha=0.5)+
    geom_point(aes(
      x=Tratamento,
      y=Mean,
      color=RegHidrico,
      shape=RegHidrico),
      data=dframe_summ,
      position = position_dodge(width = .75))+
    geom_errorbar(aes(
      x=Tratamento,
      y=Mean,
      color=RegHidrico,
      shape=RegHidrico,
      ymin=Mean-SD,ymax=Mean+SD),
      data=dframe_summ,
      width = 0.2,alpha=0.9,
      position = position_dodge(0.75))+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))

  return(out)
}

summ_qf_ccsm <- function(dframe,variable_name = ''){
  if (variable_name==''){
    stop()
  }
  dframe = dframe %>% select(one_of(variable_name),Manejo,Copa,PortaEnxerto)
  
  colnames(dframe)[1]<-'Y'
  out<- list()
  
  dframe = dframe %>% mutate(Tratamento = paste(Copa,'+',PortaEnxerto,sep=''))
  
  dframe_summ <- dframe %>% group_by(Manejo,Tratamento) %>% 
    summarise(Mean = mean(Y,na.rm=T),
              SD = sd(Y,na.rm=T)) %>% 
    mutate(`Mean ± SD`=paste(round(Mean,2),'±',round(SD,2)))
  
  
  out$dframe_summ <- dframe_summ
  
  out$barp <- dframe_summ %>% ggplot(
    aes(x=Manejo,
        fill=Tratamento,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$barp_2 <- dframe_summ %>% ggplot(
    aes(x=Tratamento,
        fill=Manejo,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$barp_error <-  dframe_summ %>% ggplot(
    aes(x=Manejo,
        fill=Tratamento,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') +
    geom_errorbar(
      aes(x=Manejo,y=Mean,
          color=Tratamento,
          ymin=Mean-SD,ymax=Mean+SD),
      width = 0.2,alpha=0.8,stat = 'identity',color='black',
      position = position_dodge(0.9))+
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
   out$barp_error_2 <-  dframe_summ %>% ggplot(
    aes(x=Tratamento,
        fill=Manejo,
        y=Mean)) +
    geom_bar(stat = 'identity',position = 'dodge')+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') +
    geom_errorbar(
      aes(x=Tratamento,y=Mean,
          color=Manejo,
          ymin=Mean-SD,ymax=Mean+SD),
      width = 0.2,alpha=0.8,stat = 'identity',color='black',
      position = position_dodge(0.9))+
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$mean_desv_plot <-
    dframe %>% ggplot()+
    geom_point(aes(
      x=Manejo,
      y=Y,
      color=Tratamento,
      shape=Tratamento),
      position = position_dodge(width = .75),alpha=0.5)+
    geom_point(aes(
      x=Manejo,
      y=Mean,
      color=Tratamento,
      shape=Tratamento),
      data=dframe_summ,
      position = position_dodge(width = .75))+
    geom_errorbar(aes(
      x=Manejo,
      y=Mean,
      color=Tratamento,
      shape=Tratamento,
      ymin=Mean-SD,ymax=Mean+SD),
      data=dframe_summ,
      width = 0.2,alpha=0.9,
      position = position_dodge(0.75))+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))
  
  out$mean_desv_plot_2 <-
    dframe %>% ggplot()+
    geom_point(aes(
      x=Tratamento,
      y=Y,
      color=Manejo,
      shape=Manejo),
      position = position_dodge(width = .75),alpha=0.5)+
    geom_point(aes(
      x=Tratamento,
      y=Mean,
      color=Manejo,
      shape=Manejo),
      data=dframe_summ,
      position = position_dodge(width = .75))+
    geom_errorbar(aes(
      x=Tratamento,
      y=Mean,
      color=Manejo,
      shape=Manejo,
      ymin=Mean-SD,ymax=Mean+SD),
      data=dframe_summ,
      width = 0.2,alpha=0.9,
      position = position_dodge(0.75))+
    theme_minimal(base_size=14)+theme(legend.position = 'bottom') + 
    scale_color_gdocs()+
    scale_fill_gdocs()+
    ylab(paste('Média de', variable_name ))

  return(out)
}

UFScar

Massa

results <- summ_qf(dframe_qf_ufscar,variable_name = "Massa")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 81.66667 7.09460 81.67 ± 7.09
S FD+H10 47.00000 2.64575 47 ± 2.65
S H14+H10 69.33333 3.51188 69.33 ± 3.51
S H152+H10 69.33333 6.11010 69.33 ± 6.11
S H228+H10 47.66667 0.57735 47.67 ± 0.58
TRF FD+BRS_PF 86.66667 8.14453 86.67 ± 8.14
TRF FD+H10 82.06667 4.10041 82.07 ± 4.1
TRF H14+H10 76.00000 2.64575 76 ± 2.65
TRF H152+H10 79.50000 8.50000 79.5 ± 8.5
TRF H228+H10 83.00000 8.18535 83 ± 8.19
TRV FD+BRS_PF 71.66667 1.15470 71.67 ± 1.15
TRV FD+H10 75.33333 1.15470 75.33 ± 1.15
TRV H14+H10 54.66667 8.50490 54.67 ± 8.5
TRV H152+H10 74.66667 3.51188 74.67 ± 3.51
TRV H228+H10 68.33333 7.02377 68.33 ± 7.02

Altura

results <- summ_qf(dframe_qf_ufscar,variable_name = "Altura")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 5.80000 0.20000 5.8 ± 0.2
S FD+H10 4.86667 0.11547 4.87 ± 0.12
S H14+H10 5.53333 0.05774 5.53 ± 0.06
S H152+H10 5.40000 0.20000 5.4 ± 0.2
S H228+H10 5.06667 0.05774 5.07 ± 0.06
TRF FD+BRS_PF 5.86667 0.28868 5.87 ± 0.29
TRF FD+H10 5.83333 0.15275 5.83 ± 0.15
TRF H14+H10 5.60000 0.00000 5.6 ± 0
TRF H152+H10 5.70000 0.10000 5.7 ± 0.1
TRF H228+H10 5.73333 0.25166 5.73 ± 0.25
TRV FD+BRS_PF 5.43333 0.11547 5.43 ± 0.12
TRV FD+H10 5.50000 0.10000 5.5 ± 0.1
TRV H14+H10 5.13333 0.11547 5.13 ± 0.12
TRV H152+H10 5.46667 0.32146 5.47 ± 0.32
TRV H228+H10 5.53333 0.28868 5.53 ± 0.29

Largura

results <- summ_qf(dframe_qf_ufscar,variable_name = "Largura")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 5.26667 0.11547 5.27 ± 0.12
S FD+H10 4.36667 0.05774 4.37 ± 0.06
S H14+H10 5.00000 0.10000 5 ± 0.1
S H152+H10 5.03333 0.15275 5.03 ± 0.15
S H228+H10 4.40000 0.10000 4.4 ± 0.1
TRF FD+BRS_PF 5.43333 0.15275 5.43 ± 0.15
TRF FD+H10 5.33333 0.11547 5.33 ± 0.12
TRF H14+H10 5.23333 0.05774 5.23 ± 0.06
TRF H152+H10 5.40000 0.10000 5.4 ± 0.1
TRF H228+H10 5.30000 0.17321 5.3 ± 0.17
TRV FD+BRS_PF 5.10000 0.00000 5.1 ± 0
TRV FD+H10 5.16667 0.05774 5.17 ± 0.06
TRV H14+H10 4.63333 0.30551 4.63 ± 0.31
TRV H152+H10 4.93333 0.28868 4.93 ± 0.29
TRV H228+H10 4.96667 0.15275 4.97 ± 0.15

AL

results <- summ_qf(dframe_qf_ufscar,variable_name = "AL")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 1.10333 0.02082 1.1 ± 0.02
S FD+H10 1.11667 0.02517 1.12 ± 0.03
S H14+H10 1.10667 0.01155 1.11 ± 0.01
S H152+H10 1.07333 0.03055 1.07 ± 0.03
S H228+H10 1.15333 0.04041 1.15 ± 0.04
TRF FD+BRS_PF 1.08333 0.02517 1.08 ± 0.03
TRF FD+H10 1.09333 0.02082 1.09 ± 0.02
TRF H14+H10 1.07333 0.01155 1.07 ± 0.01
TRF H152+H10 1.05667 0.00577 1.06 ± 0.01
TRF H228+H10 1.08333 0.02082 1.08 ± 0.02
TRV FD+BRS_PF 1.06667 0.02309 1.07 ± 0.02
TRV FD+H10 1.06667 0.02309 1.07 ± 0.02
TRV H14+H10 1.11000 0.05000 1.11 ± 0.05
TRV H152+H10 1.11000 0.01000 1.11 ± 0.01
TRV H228+H10 1.11333 0.03055 1.11 ± 0.03

Suco

results <- summ_qf(dframe_qf_ufscar,variable_name = "Suco")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 48.76667 4.05010 48.77 ± 4.05
S FD+H10 37.46667 3.35012 37.47 ± 3.35
S H14+H10 45.63333 1.50444 45.63 ± 1.5
S H152+H10 45.13333 2.58908 45.13 ± 2.59
S H228+H10 39.86667 0.46188 39.87 ± 0.46
TRF FD+BRS_PF 51.83333 2.10792 51.83 ± 2.11
TRF FD+H10 51.20000 2.07846 51.2 ± 2.08
TRF H14+H10 46.46667 1.76163 46.47 ± 1.76
TRF H152+H10 45.00000 2.70000 45 ± 2.7
TRF H228+H10 45.63333 3.13900 45.63 ± 3.14
TRV FD+BRS_PF 45.13333 0.05774 45.13 ± 0.06
TRV FD+H10 49.56667 0.75056 49.57 ± 0.75
TRV H14+H10 38.63333 4.06735 38.63 ± 4.07
TRV H152+H10 41.90000 1.60935 41.9 ± 1.61
TRV H228+H10 43.43333 3.76475 43.43 ± 3.76

Acidez

results <- summ_qf(dframe_qf_ufscar,variable_name = "Acidez")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 5.29067 0.38493 5.29 ± 0.38
S FD+H10 5.42190 0.28282 5.42 ± 0.28
S H14+H10 5.01870 0.39804 5.02 ± 0.4
S H152+H10 4.60677 0.51469 4.61 ± 0.51
S H228+H10 5.06987 0.18971 5.07 ± 0.19
TRF FD+BRS_PF 5.46163 0.26236 5.46 ± 0.26
TRF FD+H10 5.14260 0.43562 5.14 ± 0.44
TRF H14+H10 4.97363 0.08585 4.97 ± 0.09
TRF H152+H10 5.16717 0.15245 5.17 ± 0.15
TRF H228+H10 5.51613 0.34844 5.52 ± 0.35
TRV FD+BRS_PF 5.15400 0.32922 5.15 ± 0.33
TRV FD+H10 4.99920 0.20471 5 ± 0.2
TRV H14+H10 5.00657 0.06020 5.01 ± 0.06
TRV H152+H10 4.79327 0.15489 4.79 ± 0.15
TRV H228+H10 5.50537 0.33448 5.51 ± 0.33

BrixCorr

results <- summ_qf(dframe_qf_ufscar,variable_name = "BrixCorr")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 8.90000 0.17321 8.9 ± 0.17
S FD+H10 8.80000 0.10000 8.8 ± 0.1
S H14+H10 8.83333 0.15275 8.83 ± 0.15
S H152+H10 8.63333 0.05774 8.63 ± 0.06
S H228+H10 9.56667 0.20817 9.57 ± 0.21
TRF FD+BRS_PF 9.13333 0.15275 9.13 ± 0.15
TRF FD+H10 9.16667 0.05774 9.17 ± 0.06
TRF H14+H10 8.93333 0.11547 8.93 ± 0.12
TRF H152+H10 8.90000 0.10000 8.9 ± 0.1
TRF H228+H10 8.90000 0.00000 8.9 ± 0
TRV FD+BRS_PF 8.83333 0.20817 8.83 ± 0.21
TRV FD+H10 9.20000 0.10000 9.2 ± 0.1
TRV H14+H10 8.86667 0.20817 8.87 ± 0.21
TRV H152+H10 8.66667 0.05774 8.67 ± 0.06
TRV H228+H10 8.96667 0.25166 8.97 ± 0.25

Ratio

results <- summ_qf(dframe_qf_ufscar,variable_name = "Ratio")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 1.70000 0.10000 1.7 ± 0.1
S FD+H10 1.60000 0.10000 1.6 ± 0.1
S H14+H10 1.73333 0.11547 1.73 ± 0.12
S H152+H10 1.90000 0.20000 1.9 ± 0.2
S H228+H10 1.90000 0.10000 1.9 ± 0.1
TRF FD+BRS_PF 1.66667 0.05774 1.67 ± 0.06
TRF FD+H10 1.76667 0.15275 1.77 ± 0.15
TRF H14+H10 1.80000 0.00000 1.8 ± 0
TRF H152+H10 1.75000 0.05000 1.75 ± 0.05
TRF H228+H10 1.60000 0.10000 1.6 ± 0.1
TRV FD+BRS_PF 1.73333 0.15275 1.73 ± 0.15
TRV FD+H10 1.86667 0.05774 1.87 ± 0.06
TRV H14+H10 1.76667 0.05774 1.77 ± 0.06
TRV H152+H10 1.80000 0.10000 1.8 ± 0.1
TRV H228+H10 1.63333 0.05774 1.63 ± 0.06

IT

results <- summ_qf(dframe_qf_ufscar,variable_name = "IT")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 1.77000 0.18358 1.77 ± 0.18
S FD+H10 1.34333 0.11015 1.34 ± 0.11
S H14+H10 1.64667 0.03512 1.65 ± 0.04
S H152+H10 1.58667 0.09713 1.59 ± 0.1
S H228+H10 1.55333 0.02309 1.55 ± 0.02
TRF FD+BRS_PF 1.93000 0.05292 1.93 ± 0.05
TRF FD+H10 1.91667 0.05508 1.92 ± 0.06
TRF H14+H10 1.69000 0.08185 1.69 ± 0.08
TRF H152+H10 1.63667 0.08505 1.64 ± 0.09
TRF H228+H10 1.66000 0.11533 1.66 ± 0.12
TRV FD+BRS_PF 1.62667 0.04509 1.63 ± 0.05
TRV FD+H10 1.86000 0.02000 1.86 ± 0.02
TRV H14+H10 1.39667 0.18148 1.4 ± 0.18
TRV H152+H10 1.48000 0.06083 1.48 ± 0.06
TRV H228+H10 1.60000 0.17349 1.6 ± 0.17

VitC

results <- summ_qf(dframe_qf_ufscar,variable_name = "VitC")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2

Tabela Resumo
results$dframe_summ %>% kable_cust()
RegHidrico Tratamento Mean SD Mean ± SD
S FD+BRS_PF 28.54000 0.60622 28.54 ± 0.61
S FD+H10 35.68000 1.14582 35.68 ± 1.15
S H14+H10 32.45667 3.28649 32.46 ± 3.29
S H152+H10 37.78333 1.63102 37.78 ± 1.63
S H228+H10 33.36000 1.15763 33.36 ± 1.16
TRF FD+BRS_PF 33.21000 1.82371 33.21 ± 1.82
TRF FD+H10 32.76000 1.84984 32.76 ± 1.85
TRF H14+H10 32.50667 1.82870 32.51 ± 1.83
TRF H152+H10 34.24333 0.89131 34.24 ± 0.89
TRF H228+H10 34.38333 1.21187 34.38 ± 1.21
TRV FD+BRS_PF 33.45333 1.59080 33.45 ± 1.59
TRV FD+H10 35.30333 0.89891 35.3 ± 0.9
TRV H14+H10 38.17667 1.34500 38.18 ± 1.35
TRV H152+H10 37.89000 1.84789 37.89 ± 1.85
TRV H228+H10 35.40333 2.43097 35.4 ± 2.43

CCSM

Massa

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "Massa")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 94.33333 11.50362 94.33 ± 11.5
Convencional BRF_PF+H152 89.33333 10.01665 89.33 ± 10.02
Convencional IAC10+FD 90.33333 4.72582 90.33 ± 4.73
Convencional IAC10+H152 86.66667 5.13160 86.67 ± 5.13
Convencional IAC5+FD 88.00000 12.12436 88 ± 12.12
Convencional IAC5+H152 81.66667 2.30940 81.67 ± 2.31
Ecologico BRF_PF+FD 77.33333 3.05505 77.33 ± 3.06
Ecologico BRF_PF+H152 83.66667 0.57735 83.67 ± 0.58
Ecologico IAC10+FD 95.00000 11.13553 95 ± 11.14
Ecologico IAC10+H152 90.33333 2.51661 90.33 ± 2.52
Ecologico IAC5+FD 80.33333 3.21455 80.33 ± 3.21
Ecologico IAC5+H152 88.00000 3.46410 88 ± 3.46

Altura

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "Altura")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 6.10000 0.40000 6.1 ± 0.4
Convencional BRF_PF+H152 5.96667 0.25166 5.97 ± 0.25
Convencional IAC10+FD 6.06667 0.15275 6.07 ± 0.15
Convencional IAC10+H152 5.56667 0.11547 5.57 ± 0.12
Convencional IAC5+FD 5.90000 0.36056 5.9 ± 0.36
Convencional IAC5+H152 5.80000 0.10000 5.8 ± 0.1
Ecologico BRF_PF+FD 5.70000 0.10000 5.7 ± 0.1
Ecologico BRF_PF+H152 5.83333 0.05774 5.83 ± 0.06
Ecologico IAC10+FD 6.13333 0.15275 6.13 ± 0.15
Ecologico IAC10+H152 6.03333 0.11547 6.03 ± 0.12
Ecologico IAC5+FD 5.90000 0.10000 5.9 ± 0.1
Ecologico IAC5+H152 6.03333 0.05774 6.03 ± 0.06

Largura

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "Largura")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 5.60000 0.36056 5.6 ± 0.36
Convencional BRF_PF+H152 5.40000 0.17321 5.4 ± 0.17
Convencional IAC10+FD 5.40000 0.10000 5.4 ± 0.1
Convencional IAC10+H152 5.10000 0.10000 5.1 ± 0.1
Convencional IAC5+FD 5.43333 0.25166 5.43 ± 0.25
Convencional IAC5+H152 5.26667 0.05774 5.27 ± 0.06
Ecologico BRF_PF+FD 5.16667 0.11547 5.17 ± 0.12
Ecologico BRF_PF+H152 5.26667 0.05774 5.27 ± 0.06
Ecologico IAC10+FD 5.56667 0.20817 5.57 ± 0.21
Ecologico IAC10+H152 5.23333 0.25166 5.23 ± 0.25
Ecologico IAC5+FD 5.30000 0.10000 5.3 ± 0.1
Ecologico IAC5+H152 5.43333 0.05774 5.43 ± 0.06

AL

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "AL")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 1.09000 0.01732 1.09 ± 0.02
Convencional BRF_PF+H152 1.10667 0.02082 1.11 ± 0.02
Convencional IAC10+FD 1.12333 0.01155 1.12 ± 0.01
Convencional IAC10+H152 1.09333 0.01155 1.09 ± 0.01
Convencional IAC5+FD 1.08667 0.02082 1.09 ± 0.02
Convencional IAC5+H152 1.10000 0.01000 1.1 ± 0.01
Ecologico BRF_PF+FD 1.10667 0.03055 1.11 ± 0.03
Ecologico BRF_PF+H152 1.10667 0.01528 1.11 ± 0.02
Ecologico IAC10+FD 1.10333 0.01155 1.1 ± 0.01
Ecologico IAC10+H152 1.15333 0.03786 1.15 ± 0.04
Ecologico IAC5+FD 1.11333 0.02082 1.11 ± 0.02
Ecologico IAC5+H152 1.11000 0.02000 1.11 ± 0.02

Suco

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "Suco")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 50.00000 2.66646 50 ± 2.67
Convencional BRF_PF+H152 48.80000 1.57162 48.8 ± 1.57
Convencional IAC10+FD 48.30000 0.55678 48.3 ± 0.56
Convencional IAC10+H152 47.23333 2.61024 47.23 ± 2.61
Convencional IAC5+FD 48.76667 1.51438 48.77 ± 1.51
Convencional IAC5+H152 50.63333 1.25033 50.63 ± 1.25
Ecologico BRF_PF+FD 51.66667 2.72274 51.67 ± 2.72
Ecologico BRF_PF+H152 51.00000 0.34641 51 ± 0.35
Ecologico IAC10+FD 49.13333 1.68028 49.13 ± 1.68
Ecologico IAC10+H152 45.43333 3.35609 45.43 ± 3.36
Ecologico IAC5+FD 51.03333 1.51767 51.03 ± 1.52
Ecologico IAC5+H152 49.20000 1.76918 49.2 ± 1.77

Acidez

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "Acidez")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 5.79277 0.21457 5.79 ± 0.21
Convencional BRF_PF+H152 4.73127 1.12089 4.73 ± 1.12
Convencional IAC10+FD 5.78470 0.14056 5.78 ± 0.14
Convencional IAC10+H152 4.64587 0.14255 4.65 ± 0.14
Convencional IAC5+FD 5.50670 0.55673 5.51 ± 0.56
Convencional IAC5+H152 5.28863 0.23447 5.29 ± 0.23
Ecologico BRF_PF+FD 5.43200 0.25991 5.43 ± 0.26
Ecologico BRF_PF+H152 5.71203 0.41669 5.71 ± 0.42
Ecologico IAC10+FD 5.43063 0.73447 5.43 ± 0.73
Ecologico IAC10+H152 5.57807 0.10602 5.58 ± 0.11
Ecologico IAC5+FD 5.59083 0.15735 5.59 ± 0.16
Ecologico IAC5+H152 5.64403 0.08699 5.64 ± 0.09

BrixCorr

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "BrixCorr")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 9.03333 0.15275 9.03 ± 0.15
Convencional BRF_PF+H152 9.03333 0.15275 9.03 ± 0.15
Convencional IAC10+FD 9.06667 0.15275 9.07 ± 0.15
Convencional IAC10+H152 9.00000 0.30000 9 ± 0.3
Convencional IAC5+FD 9.26667 0.05774 9.27 ± 0.06
Convencional IAC5+H152 9.30000 0.17321 9.3 ± 0.17
Ecologico BRF_PF+FD 9.26667 0.15275 9.27 ± 0.15
Ecologico BRF_PF+H152 9.33333 0.15275 9.33 ± 0.15
Ecologico IAC10+FD 9.13333 0.15275 9.13 ± 0.15
Ecologico IAC10+H152 8.86667 0.05774 8.87 ± 0.06
Ecologico IAC5+FD 9.40000 0.10000 9.4 ± 0.1
Ecologico IAC5+H152 8.96667 0.15275 8.97 ± 0.15

Ratio

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "Ratio")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 1.56667 0.05774 1.57 ± 0.06
Convencional BRF_PF+H152 1.96667 0.45092 1.97 ± 0.45
Convencional IAC10+FD 1.56667 0.05774 1.57 ± 0.06
Convencional IAC10+H152 1.93333 0.05774 1.93 ± 0.06
Convencional IAC5+FD 1.66667 0.15275 1.67 ± 0.15
Convencional IAC5+H152 1.76667 0.11547 1.77 ± 0.12
Ecologico BRF_PF+FD 1.73333 0.05774 1.73 ± 0.06
Ecologico BRF_PF+H152 1.63333 0.11547 1.63 ± 0.12
Ecologico IAC10+FD 1.70000 0.26458 1.7 ± 0.26
Ecologico IAC10+H152 1.56667 0.05774 1.57 ± 0.06
Ecologico IAC5+FD 1.66667 0.05774 1.67 ± 0.06
Ecologico IAC5+H152 1.56667 0.05774 1.57 ± 0.06

IT

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "IT")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 1.84667 0.06807 1.85 ± 0.07
Convencional BRF_PF+H152 1.80333 0.03215 1.8 ± 0.03
Convencional IAC10+FD 1.79000 0.02646 1.79 ± 0.03
Convencional IAC10+H152 1.73333 0.04726 1.73 ± 0.05
Convencional IAC5+FD 1.84000 0.05292 1.84 ± 0.05
Convencional IAC5+H152 1.92000 0.03606 1.92 ± 0.04
Ecologico BRF_PF+FD 1.94667 0.07506 1.95 ± 0.08
Ecologico BRF_PF+H152 1.94333 0.01528 1.94 ± 0.02
Ecologico IAC10+FD 1.83667 0.03215 1.84 ± 0.03
Ecologico IAC10+H152 1.64000 0.12124 1.64 ± 0.12
Ecologico IAC5+FD 1.95333 0.04163 1.95 ± 0.04
Ecologico IAC5+H152 1.79667 0.09018 1.8 ± 0.09

VitC

results <- summ_qf_ccsm(dframe_qf_ccsm,variable_name = "VitC")
Gráfico de Barras
results$barp

results$barp_2

Gráfico De Barras com erro
results$barp_error

results$barp_error_2

results$barp_error_2

Gráfico de Pontos + Média e Erro
results$mean_desv_plot

results$mean_desv_plot2
## NULL
Tabela Resumo
results$dframe_summ %>% kable_cust()
Manejo Tratamento Mean SD Mean ± SD
Convencional BRF_PF+FD 34.15667 2.19805 34.16 ± 2.2
Convencional BRF_PF+H152 37.52333 1.58418 37.52 ± 1.58
Convencional IAC10+FD 34.25333 1.33121 34.25 ± 1.33
Convencional IAC10+H152 33.71000 2.57874 33.71 ± 2.58
Convencional IAC5+FD 32.83667 2.87114 32.84 ± 2.87
Convencional IAC5+H152 33.98333 1.23678 33.98 ± 1.24
Ecologico BRF_PF+FD 31.96000 1.10585 31.96 ± 1.11
Ecologico BRF_PF+H152 33.32333 3.61777 33.32 ± 3.62
Ecologico IAC10+FD 34.23000 2.17690 34.23 ± 2.18
Ecologico IAC10+H152 36.66667 0.76846 36.67 ± 0.77
Ecologico IAC5+FD 31.53667 1.24340 31.54 ± 1.24
Ecologico IAC5+H152 33.23333 1.44901 33.23 ± 1.45